

10 REM *************************************************************
20 REM * Demo program for fast frequency response                  *
30 REM *************************************************************
40 CLEAR : CLEAR 1
50 PRINT "[10;10HNumber of frequency points <20> <50> <100>?"
60 INPUT "[10;55H";Number
70 IF Number=20 OR Number=50 OR Number=100 THEN 80 ELSE 50
80 Number$=RIGHT$(STR$(Number),(LEN(STR$(Number))-1))
90 UPL OUT "MMEM:LOAD:STAT 0,'MULT"+Number$+".SAC'"
100 UPL OUT "CALC:LIM:LOW:STAT ON;:CALC:LIM:UPP:STAT ON"
110 UPL OUT "disp:conf p"
120 CLEAR : CLEAR 1
130 PRINT "[10;10HHit SPACE to start or repeat measurement - ESC to end"
140 INKEY Q$
150 IF Q$=" " THEN Q$="": GOTO 170
160 IF Q$="" THEN 280 ELSE 140
170 Fail=0: CLEAR : CLEAR 1: UPL OUT "init;*wai"
180 UPL OUT "DISP:TRAC:Y:RLEV:MODE REF1000"
190 UPL GTL G
200 UPL OUT "calc:lim:fail?
210 UPL IN W$: IF W$="ON" THEN Fail=1
220 IF Fail>0 THEN
230   SET 2,3: MOVE 250,30: LABEL "FAIL",3: SET 2,15
240 ELSE 
250   SET 2,9: MOVE 250,30: LABEL "PASS",3: SET 2,15
260 ENDIF 
270 GOTO 140
280 CLEAR : CLEAR 1
290 END 
